type file;


app (file o) mywc (file inputfile)
{
  mywc @inputfile stdout=@o;
}

file headerfiles[] <filesys_mapper; location="/usr/include", suffix="*.h">;
file out[]<simple_mapper; location="outdir", prefix="wordcount.",suffix=".out">;

#foreach j in [1:toInt(arg("n","1"))] {
#  out[j] = mywc(headerfiles[j]);
#}

foreach f,j in headerfiles {
  // %M expands the filename
  tracef("%M,%i\n",f,j);
  out[j]= mywc(f);
}